home *** CD-ROM | disk | FTP | other *** search
/ PC Format (South-Africa) 2001 June / PCFJune.iso / mweb / 32Bit / English / Connect.dxr / 00001_Movie - All.ls next >
Encoding:
Text File  |  2001-04-23  |  2.9 KB  |  62 lines
  1. global gMixManager, gVoiceManager, gOptionsManager, gVoiceSwitch
  2.  
  3. on prepareMovie
  4.   gOptionsManager = new(script("objOptionsManager"))
  5.   gOptionsManager.init("Popup03")
  6. end
  7.  
  8. on startMovie
  9.   if gVoiceSwitch then
  10.     gVoiceManager.play(2)
  11.   end if
  12.   gVoiceSwitch = 1
  13.   if the platform contains "Win" then
  14.     lOperatingSystem = baVersion("os")
  15.     if lOperatingSystem = "Win98" then
  16.       lOperatingSystem = "Windows98"
  17.     end if
  18.     if lOperatingSystem = "Win95" then
  19.       lOperatingSystem = "Windows95"
  20.     end if
  21.     if lOperatingSystem = "WinNT" then
  22.       lOperatingSystem = "Windows NT"
  23.     end if
  24.     lPhysicalMemory = baMemoryInfo("ram") / 1048576
  25.     lSystemDirectory = baSysFolder("windows")
  26.     lSystemDrive = char 1 of lSystemDirectory
  27.     lDiskFree = baDiskInfo(lSystemDrive, "free") / 1024
  28.     lIEVersion = "3"
  29.     if (integer(lPhysicalMemory) > 16) and (integer(lDiskFree) > 70) then
  30.       lIEVersion = "5"
  31.     end if
  32.     member("txtConnectAutodetect1", "Graphic").text = "This is where you install Internet Explorer on your computer and sign up with M-Web. " & RETURN & RETURN & "Different versions of Internet Explorer are available. The correct one for your computer depends on how much RAM (Random Access Memory) and hard drive space your system has." & RETURN & RETURN & "To help you select the correct browser, the CD has performed an auto detect test and has found that you are running " & lOperatingSystem & " with " & lPhysicalMemory & " MB RAM."
  33.     member("txtConnectAutodetect2", "Graphic").text = "We recommend that you install IE " & lIEVersion
  34.   else
  35.     lOperatingSystem = baVersion("os")
  36.     if lOperatingSystem = "Mac8" then
  37.       lOperatingSystem = "MacOS 8"
  38.     end if
  39.     if lOperatingSystem = "Mac7" then
  40.       lOperatingSystem = "MacOS 7"
  41.     end if
  42.     lSystemDirectory = baSysFolder("System")
  43.     lItemDelimiter = the itemDelimiter
  44.     the itemDelimiter = ":"
  45.     lSystemDrive = item 1 of lSystemDirectory
  46.     the itemDelimiter = lItemDelimiter
  47.     lDiskFree = baDiskInfo(lSystemDrive, "free") / 1024
  48.     lPowerPC = the platform contains "PowerPC"
  49.     IIEVersion = "4"
  50.     if lPowerPC and (integer(lDiskFree) > 35) then
  51.       lIEVersion = "4.5"
  52.     end if
  53.     member("txtConnectAutodetect1", "Graphic").text = "This is where you install Internet Explorer on your computer and sign up with M-Web. " & RETURN & RETURN & "Different versions of Internet Explorer are available. The correct one for your computer depends on how much RAM (Random Access Memory) and hard drive space your system has." & RETURN & RETURN & "To help you select the correct browser, the CD has performed an auto detect test and has found that you are running " & lOperatingSystem & " with " & lDiskFree & " MB free hard disk space."
  54.     member("txtConnectAutodetect2", "Graphic").text = "We recommend that you install IE " & lIEVersion
  55.   end if
  56. end
  57.  
  58. on stopMovie
  59.   delete gOptionsManager
  60.   gOptionsManager = VOID
  61. end
  62.